home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
t
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
2KB
|
71 lines
1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO28
2 DATA46,70,73,71
3 X3=X2+X1:Y3=Y2+Y1:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
4 A=USR(64),X3,Y3:RETURN
5 X3=X1+Y2:Y3=Y1-X2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
6 A=USR(64),X3,Y3:RETURN
7 X3=X1-X2:Y3=Y1-Y2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
8 A=USR(64),X3,Y3:RETURN
9 X3=X1-Y2:Y3=Y1+X2:IF(X3<0)OR(X3>319)OR(Y3<0)OR(Y3>199)THENRETURN
10 A=USR(64),X3,Y3:RETURN
11 X=X+USR(121):Y=Y-USR(122)
12 IFX>331THENX=X-320
13 IFX<12THENX=X+320
14 IFY>239THENY=Y-200
15 IFY<40THENY=Y+200
16 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
17 OPEN15,D0,15,"I0"
18 CLOSE15:RETURN
19 A=USR(117):IFA<>16THENRETURN
20 X1=X-12:Y1=Y-40:A=USR(34),X,Y,1:A=USR(32),1
21 A=USR(117):IFA<>0THEN21
22 GOSUB11:A=USR(117):IFA<>16THEN22
23 X2=X-12:Y2=Y-40:A=USR(34),X,Y,2:A=USR(32),2
24 A=USR(117):IFA<>0THEN24
25 IFY1>Y2THENX3=X2:X2=X1:X1=X3:Y3=Y2:Y2=Y1:Y1=Y3
26 A=USR(33),0:A=USR(33),1:A=USR(33),2
27 FORB=Y1TOY2:A=USR(67),X1,B,X2,B:NEXT:A=USR(32),0:RETURN
28 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
29 A=USR(21):A=USR(17):A=USR(19):A=USR(1)
30 GOSUB17:PRINTCHR$(14)"[147]":IFD0=D1THENPRINT"[201]NSERT FILE DISK AND
31 [153]"(null)RESS A KEY."
32 [161]A$:[139]A$[178]""[167]32
33 [133]"LENHARACTER SPACING (PIXELS) ";SP:SP[178]SP[170]1
34 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):[141]17
35 R[178]1:T[178]18:A[178][183](39),0,18:A[178][183](32),0
36 [141]19:[141]11:[161]A$:[139]A$[178]""[167]36
37 [139]A$[178]" "[167]47
38 [139]A$[178]"\"[167]R[178]R[170]1:T[178]T[170]1:[139]R[178]5[167]R[178]1:T[178]18
39 [139]A$[178]"\"[167]A[178][183](39),0,T:[137]36
40 [139]A$[178]""[167][158]36885:[137]36
41 [139]A$[178][199](13)[167]59
42 [139]A$[178]"!"[167][158]36867:[137]36
43 [139]A$[178]"$"[176]A$[178][199](34)[167]36
44 [139]A$[178]"*"[167]28
45 [159]15,D1,15,"I0":[151]828,[198](A$):[151]40448,255:[158]36903
46 [132]15,E:[139]E[179][177]0[167][152]15,"I0":[160]15:[137]36
47 [160]15:[158]36864:X1[178]X[171]12:Y1[178]Y[171]40:D[178]0:FR[178]40448:XM[178]0
48 X2[178][194](FR[170]D):Y2[178][194](FR[170]D[170]1)
49 [139](X2[177]254)[176](Y2[177]254)[167][145]R[137]55,56,57,58
50 [139]X2[177]127[167]X2[178][171](X2[175]127)
51 [139]Y2[177]127[167]Y2[178][171](Y2[175]127)
52 [139]X2[177]XM[167]XM[178]X2
53 [145]R[141]3,5,7,9
54 D[178]D[170]2:[137]48
55 X[178]X[170]XM[170]SP:[137]36
56 Y[178]Y[171]XM[171]SP:[137]36
57 X[178]X[171]XM[171]SP:[137]36
58 Y[178]Y[170]XM[170]SP:[137]36
59 A[178][183](33),0:A[178][183](34),0,Y,6:A[178][183](34),X,255,7:A[178][183](0),0,1,4
60 A[178][183](1):A[178][183](17):A[178][183](19):A[178][183](21):[141]17
61 [153][199](14)"LOAD":[139]D0[178]D1[167][153]"RIGHT$NSERT (null)ROGRAM DISK AND"
62 [153]"(null)RESS A KEY."
63 [161]A$:[139]A$[178]""[167]63
64 [159]15,D0,15,"I0"
65 [159]2,D0,2,"CMND,P,R"
66 [160]2:[161]#15,E
67 [160]15
68 [139]E[179][177]0[167][153]"(null)ROGRAM DISK NOT PRESENT.":[137]63
69 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](39),0,16:[141]17
70 [147]"CMND",D0